home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Text / Edit / XDme / Macros / C / addinc.xdme next >
Encoding:
Text File  |  1994-08-09  |  619 b   |  31 lines
  1. #
  2. #   Add another include file.
  3. #
  4. #   $VER: addinc V1.00 (18.11.1992)
  5. #
  6.  
  7. # remember where we were
  8. push pos
  9.  
  10. # goto top
  11. top
  12.  
  13. # search Include-statement. This is now too reliable
  14. find `       Includes'
  15.  
  16. # leave headline
  17. down down
  18.  
  19. # look for the first line that doesn't have a #include in it
  20. first while c="#" down
  21.  
  22. # insert a new line and text
  23. insline `#include '
  24.  
  25. # ask for the name
  26. # look at the first char
  27. # if it's a '"', add a '"' at the end, too.
  28. # else add <>
  29. # goto last position and go down one line, because we have inserted one
  30. escimm (`) wleft ifelse c=34 `last (")' `if c<>"<" `(<)' last (>)' pop auto down
  31.